home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 181 / 181.d81 / alfredo 1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  192 lines
  1. 1 print"[147]"
  2. 2 dv=peek(186):ifdv<8thendv=8
  3. 4 ifl=.andpeek(816)=231andpeek(817)=195thenpoke816,165:poke817,244
  4. 6 poke832,.:ifl=.thenl=1:load"al1.ml",dv,1
  5. 8 ifl=1thenpoke55,.:poke56,33:clr:dv=peek(186)
  6. 10 a(1)=56:a(2)=248:a(3)=184:a(4)=120:a(5)=56:a(6)=248:a(7)=184
  7. 12 a(8)=120:a(9)=56:a(10)=248:a(.)=184:b(1)=199:b(2)=199:b(3)=200:b(4)=201
  8. 14 b(5)=202:b(6)=202:b(7)=203:b(8)=204:b(9)=205:b(10)=205:b(.)=206
  9. 16 h=49173:v=53248:sd=54272:s=sd
  10. 18 ifl=0thenl=2:load"al1.joeplay",dv,1
  11. 20 ifl=2thenl=3:load"m.someguys",dv,1
  12. 22 a=.:gosub374
  13. 24 sys32768,40960:poke56325,55:sys49152:sys49158
  14. 26 sys49161,.
  15. 28 poke53280,.
  16. 30 sys49164,1
  17. 32 sysh,.,150,319,150
  18. 34 sysh,180,150,180,75
  19. 36 sysh,180,75 ,319,75
  20. 38 poke2040,13:poke2041,14:poke2042,15
  21. 40 j=1:gosub366
  22. 42 z=0:a=1:fr=25:tm=170:sp=1:c=183:gosub352
  23. 44 a=3:gosub374
  24. 46 j=2:gosub366
  25. 48 sys49176,145,150,165,150
  26. 50 gosub328
  27. 52 sysh,145,150,145,199
  28. 54 sysh,165,150,165,199
  29. 56 a=1:b=170:forc=183to229step6:gosub374:next c
  30. 58 a=.:gosub374:sys49158
  31. 60 sysh,145,1,145,199:sys h,165,1,165,199
  32. 62 a=1:b=170:forc=50to229step6:gosub374:next
  33. 64 a=0:gosub374:sys49158
  34. 66 sysh,145,1,145,50:sysh,165,1,165,50
  35. 68 sysh,1,50,319,50:sysh,1,150,319,150
  36. 70 sysh,1,50,1,150:sys49176,145,50,165,50
  37. 72 a=1:b=170:forc=50to180step6:gosub374:nextc
  38. 74 a=2:b=170:c=180:gosub374
  39. 76 gosub332
  40. 78 forw=1to1000:next
  41. 80 a=0:gosub374
  42. 82 j=3:gosub366
  43. 84 a=1:gosub374
  44. 86 z=0:fr=170:tm=320:sp=4:c=183:gosub352
  45. 88 a=0:gosub374:sys49158
  46. 90 sysh,1,50,80,50:sysh,1,150,80,150
  47. 92 sysh,80,1,80,50:sysh,80,150,80,199
  48. 94 poke214,20:print:
  49. 96 print"fffffffffffffffffffffffffffff";
  50. 98 z=0:fr=24:tm=98:sp=3:c=183:gosub352
  51. 100 b=f:c=183:gosub374
  52. 102 j=4:gosub366
  53. 104 forb=98to140step2:c=c+1:gosub374:nextb
  54. 106 gosub338
  55. 108 z=0:fr=142:tm=320:sp=3:c=205:gosub352
  56. 110 a=0:gosub374:sys49158:sys49164,1
  57. 112 poke214,20:print
  58. 114 print"ffffffffffffffff";
  59. 116 sysh,240,75,319,150:sysh,240,75,319,75
  60. 118 sys49179,"live wire",115,1
  61. 120 sysh,159,10,159,162
  62. 122 z=0:fr=25:tm=170:sp=1:c=205:gosub352
  63. 124 foru=1to500:next
  64. 126 a=1:gosub374:j=5:gosub366
  65. 128 gosub342
  66. 130 n=53265:foru=1to025:poken+15,u:poken,peek(n)and239:poken,peek(n)or16:next
  67. 132 poke53280,0
  68. 134 z=0:c=205
  69. 136 forf=170to275step9
  70. 138 z=z+1:ifz<3then144
  71. 140 ifa=1thena=2:z=0:goto144
  72. 142 a=1:z=0
  73. 144 b=f:c=c-12:gosub374
  74. 146 next
  75. 148 r=f
  76. 150 forc=61to107step3:a=2:b=r:gosub374:nextc
  77. 152 c=c-1
  78. 154 a=3:b=r:gosub374
  79. 156 a=0:b=r:gosub374:j=3:gosub366:a=1:b=r:gosub374
  80. 158 z=0:fr=r:tm=320:sp=3:gosub352
  81. 160 print"[147]"
  82. 162 a=0:gosub374:sys49158:sys49164,1
  83. 164 sysh,1,75,319,75
  84. 166 z=0:fr=24:tm=250:sp=3:gosub352
  85. 168 sys49176,200,75,319,75
  86. 170 sysh,200,75,319,180
  87. 172 a=1:gosub374
  88. 174 j=6:gosub366
  89. 176 f=b:fory=1to11:c=c+3:b=f:gosub374:next y
  90. 178 a=2:gosub374
  91. 180 forf=249to319step5:b=f:c=c+4.1:gosub374:next
  92. 182 sys49158:a=0:gosub 374
  93. 184 sys49152:sys 49158:sys 49164,1
  94. 186 sysh,1,1,160,150:sys h,160,150,160,175:sysh,160,175,300,175
  95. 188 sysh,300,175,300,150:sys h,300,150,210,150:sys h,210,150,50,1
  96. 190 sysh,145,090,145,100
  97. 192 a=2:c=51:for f=33 to 115step2:b=f:c=c+(.9*2):gosub374:next
  98. 194 a=3:gosub374
  99. 196 a=3:for f=115to150step2:b=f:c=c+(.9*2):gosub374:next
  100. 198 a=0:gosub374:j=7:gosub366:a=1:b=158:c=146:gosub374
  101. 200 for y=120to145:sys 49176,130,y,150,y:next
  102. 202 sysh,130,120,130,199:sys h,150,140,150,199
  103. 204 foru=1to400:next
  104. 206 forc=146to229step4:gosub374:next
  105. 208 a=0:gosub374:sys49158:sys49164,1
  106. 210 sysh,130,1,130,15:sys h,150,1,150,15
  107. 212 sysh,20,15,130,15:sys h,150,15,250,15
  108. 214 sysh,20,15,20,229: sys h,250,15,250,199
  109. 216 j=8:gosub366:a=2:forc=50to229step4:gosub374:next
  110. 218 sys49152
  111. 220 a=0:gosub374:sys49158:sys49164,1
  112. 222 sysh,20,1,20,199:sysh,250,1,250,75
  113. 224 sysh,250,75,319,75:sysh,200,110,319,110
  114. 226 sysh,200,110,200,199
  115. 228 sysh,20,60,250,60
  116. 230 a=2:forc=50to105step3:gosub374:nextc
  117. 232 foro=60to70step 3
  118. 234 sysh,20,60,140,o:sysh,140,o,250,60
  119. 236 c=c+2:gosub374
  120. 238 sys49176,20,60,140,o:sys49176,140,o,250,60
  121. 240 nexto
  122. 242 foro=70to60step-3
  123. 244 sysh,20,60,140,o:sysh,140,o,250,60
  124. 246 c=c-2:gosub374
  125. 248 sys49176,20,60,140,o:sys49176,140,o,250,60
  126. 250 next
  127. 252 sysh,20,60,250,60
  128. 254 z=0:fr=158:tm=250:sp=3:gosub352
  129. 256 a=2:b=f:gosub374
  130. 258 fori=1to25:c=c+1.5:b=f:gosub374:next
  131. 260 c=c-1
  132. 262 j=9:gosub366
  133. 264 z=0:fr=250:tm=319:sp=3:gosub352
  134. 266 a=0:gosub374
  135. 268 sys49158:sys49164,1
  136. 270 sysh,1,110,319,110:sysh,1,75,140,75:sysh,140,75,150,65
  137. 272 sysh,150,65,319,65
  138. 274 z=0:fr=24:tm=319:sp=3:gosub352
  139. 276 a=0:gosub374:sys49158
  140. 278 sysh,1,65,319,65:sysh,1,110,319,110
  141. 280 sysh,240,70,260,70:sysh,260,70,260,105:sysh,260,105,240,105
  142. 282 sysh,240,105,240,70:sys49179,"exit",265,75
  143. 284 z=0:fr=24:tm=175:sp=3:gosub352
  144. 286 sysh,135,65,135,110:sysh,180,65,180,110
  145. 288 a=0:gosub374:j=5:gosub366:a=3:c=c+3:gosub374
  146. 290 fori=0to12:sys49173,135+i,66,135+i,109:sys49173,180-i,66,180-i,109
  147. 292 sys49176,135+i,66,135+i,109:sys 49176,180-i,66,180-i,109
  148. 294 next
  149. 296 j=9:gosub366
  150. 298 fori=0to4:sys49173,147+i,66,147+i,109:sys49173,168-i,66,168-i,109
  151. 300 sys49176,147+i,66,147+i,109:sys49176,168-i,66,168-i,109
  152. 302 next
  153. 304 sys49173,147+i,66,147+i,109:sys49173,168-i,66,168-i,109
  154. 306 ford=500to.step-15:foru=.tod:next:gosub378:next
  155. 308 a=0:gosub374
  156. 310 forzz=149to152:sysh+3,zz,66,zz,109:sysh+3,zz+13,66,zz+13,109:next
  157. 312 sysh,157,66,157,109:sysh,158,66,158,109
  158. 314 sys49179,"the  end",133,100
  159. 316 gosub346
  160. 318 sys49179,"  press any key to quit  ",66,150:poke198,.
  161. 320 geta$:ifa$=""then320
  162. 322 poke178,64:print"[147]";:sys51459
  163. 324 end
  164. 326 :
  165. 328 pokes+24,15:pokes+5,190:pokes+6,25:forx=127to10step-17:pokes+1,2*x
  166. 330 pokes+1,129-x:pokes+4,17:forl=1to4:next:pokes+1,4:next:pokes+4,16:return
  167. 332 return
  168. 334 pokes+5,9:pokes+6,9:pokes+24,15:pokes+4,17:forl=1to40:pokes+1,62-l
  169. 336 pokes+1,l:pokes+4,17:next:pokes+4,16:return
  170. 338 pokes+24,15:pokes+6,240:pokes+4,17:forla=1to2:forlx=255to1step-55
  171. 340 pokes+1,lx/2:pokes+1,255-lx/2:next:nextla:pokes+4,16:return
  172. 342 pokes+24,15:pokes+6,240:pokes+4,17:forla=1to10:forlx=1to255step25
  173. 344 pokes+1,lx:nextlx:nextla:pokes+4,32:return
  174. 346 pokes+1,14:pokes+5,3:pokes+6,240:pokes+24,15:pokes+4,17
  175. 348 forld=8to2step-1:pokes+1,ld:pokes+4,33:pokes+4,33:pokes+1,ld*2:pokes+4,17
  176. 350 pokes+1,ld*4:pokes+4,33:pokes+1,ld*8:pokes+4,17:next:pokes+4,16:return
  177. 352 forf=frtotmstepsp
  178. 354 z=z+1:ifz<3then360
  179. 356 ifa=1thena=2:z=.:goto360
  180. 358 a=1:z=.
  181. 360 b=f:gosub374:if(j=3orj=9)andz=.thengosub378
  182. 362 next
  183. 364 return
  184. 366 rem
  185. 368 ifj=11thenj=0
  186. 370 poke53115,a(j):poke53116,b(j):sys 53112
  187. 372 return
  188. 374 ifa=.thenpokev+21,.:return
  189. 376 pokev,band255:pokev+16,-(b>255):pokev+1,c:poke2040,12+a:pokev+21,1:return
  190. 378 pokesd+24,.:pokesd+24,15:return
  191. 10000 d=peek(186):n$="0:alfredo 1":open15,d,15,"s"+n$:close15:saven$,d:end
  192.